home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 11
/
Cream of the Crop 11-1.iso
/
games
/
nerak2.zip
/
BEGGAR.SCR
< prev
next >
Wrap
Text File
|
1995-09-24
|
1KB
|
55 lines
!
! Default Beggar script..
!
! (c) DC Software, 1989-1995
!
! Pending Enhancements
!
! - This script has no voices. For an example of voices, look at
! MERCHANT.SCR and HEALER.SCR
!
!------------------------------------------------------------------------!
:@TALK ! Talk to the character !
!------------------------------------------------------------------------!
if player.hp = 0 then
writeln( player.name, " is dead!" );
STOP;
endif;
if npc.picture >= 0 then
viewpcx(npc);
endif;
loadtext( npc.text ); ! Get the NPC's text block !
loadvfl( npc.voice ); ! Get the NPC's voice block !
! First line of the text block is the greeting..
writeln( s1 );
L1 = select( "Give Money", "Leave" );
if L1 = 0 then
readtext( npc.text, random(15)+2 ); ! display one line (2-16) !
else
writeln( "Thanks for nothing.." );
if( group.gold > 50 ) then
dec( group.gold, random(50) );
else
dec( group.gold, group.gold );
endif;
writeln( "(the beggar bumps into you as you walk away..)" );
endif;
goto XSTOP;
!-----------------------------------------------------------------!
! All STOPs now lead here so the screen can be restored if needed !
!-----------------------------------------------------------------!
:XSTOP
if npc.picture >= 0 then
paint(window); ! Assumes the picture fits in the window !
endif;
stats(-1); ! Refresh Statistics !
STOP;